This command will set an existing light to that of a directional light.

SET DIRECTIONAL LIGHT Light Number, NX, NY, NZ

Light Number

Integer
The light number

NX

Float
The x direction is specified using directional values assuming that the origin of the light is 0,0,0

NY

Float
The y direction is specified using directional values assuming that the origin of the light is 0,0,0

NZ

Float
The z direction is specified using directional values assuming that the origin of the light is 0,0,0

This command does not return a value.

The direction is specified using directional values assuming that the origin of the light is 0,0,0. The light number must be specified using an integer value. The directional values must be specified using real values.

sync on

autocam off

color backdrop rgb(0,0,0)

load image "ground.jpg",1

make matrix 1,1000,1000,100,100

prepare matrix texture 1,1,1,1

position matrix 1,-500,0,-500

position camera 0,100,0

make object sphere 1,20

position object 1,0,0,500

set ambient light 20

color ambient light rgb(64,64,128)

set directional light 0,0,-1,0

color light 0,192,192,192

while inkey$()<>"x"

set cursor 0,0

print "LIGHT COMMANDS (X to Exit)"

sync

endwhile

delete light 1

delete object 1

end

LIGHT Commands Menu
Index